{ .C G         // Get BP
  .8 G         // Get SP
  .4 +         // Add 4
  .C S         // Set BP
  .8 G         // Get SP
  .20 -        // Sub 8*4; v1-8
  .100 -       // Sub 256; v9: Str nam
  .8 S         // Set SP
  { .20.100+.4/pna
    .1na S               // v1=&v9
    .0 .1nv .100 .4$     // $Args(0)
    z .=l1 j             // If 0 Jmp l1
    .=c1 g .1$           // $Put('\'')
    .1nv .5$             // $Puts(v1)
    .=c1 g .1$           // $Put('\'')
    .A .1$               // $Put('\n')

    .1b
    :c1 "'"
    :s1 "Args: <name>\n" \00
    :l1 .=s1 .5$ .1b     // $Puts(s1)
  }
  .C G         // Get BP
  .8 S         // Set SP
  .C S         // Set BP
  .3$          // Halt
}
